home *** CD-ROM | disk | FTP | other *** search
- "FILE"="Xteq Systems X-Setup Plugin 3.1"
- "TYPE"="6"
- "COUNT"="1"
- "UIPATH"="System\Timeouts"
- "NAME"="AutoEnd Programs"
- "LANGUAGE"="VBScript"
- "TEXT 1"="AutoEnd programs on exit"
- "DESCRIPTION 1"="If the computer is about to be shut down, it is possible that a program can't be ended because it "hangs"."
- "DESCRIPTION 2"="If this happens and this option is activated, the program is automatically ended."
- "DESCRIPTION 3"="If it's deactivated, Windows displays an error message and asks the user what to do."
- "AUTHOR"="Xteq Systems"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
- "COMMENT 2"="Version 1.1"
-
-
- 'Declaration of some constants
- sP="HKCU\Control Panel\Desktop\"
- sV1="AutoEndTasks"
-
- 'Called when the Plugin is started
- Sub Plugin_Initialize
- i=RegReadValue(sp & sv1)
- if i=1 then SetUIElement 1,true
- End Sub
-
- 'Called when the Plugin should validate the Data the user has entered
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
- 'Called when the Plugin should apply the changes
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- b=GetUIElement(1)
- if b=true then
- Call RegWriteValue(sp&sv1,1,1)
- else
- Call RegWriteValue(sp&sv1,0,1)
- end if
-
- End Sub
-
- 'Called when the Plugin is about to be removed from memory
- Sub Plugin_Terminate
- End Sub
-